home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs19.d81 / spectrum.sfx / spectrum v1.0 (.txt) < prev    next >
Commodore BASIC  |  1992-09-01  |  2KB  |  75 lines
  1. 7 POKE53280,0:POKE53281,0
  2. 8 PRINT"[147]"
  3. 9 DIM Q(600):DIMG(100)
  4. 10 FOR X=1TO160:PRINT"[144] ";:NEXT
  5. 11 FOR X=1TO40:PRINT" ";:NEXT
  6. 12 FOR X=1TO40:PRINT"[129] ";:NEXT
  7. 13 FOR X=1TO40:PRINT"[158] ";:NEXT
  8. 14 FOR X=1TO40:PRINT" ";:NEXT
  9. 15 FOR X=1TO40:PRINT" ";:NEXT
  10. 16 FOR X=1TO40:PRINT"[156] ";:NEXT
  11. 18 PRINT"[146][149]SP[129]E[158]C[153]TRUM V1.0"
  12. 19 PRINT"COPYRIGHT 1992 GREG HARMAN"
  13. 20 PRINT"[158]>>>PRESS ANY KEY<<<"
  14. 22 GET A$:IFA$=""THEN 22
  15. 23 PRINT"[147]"
  16. 24 PRINT"THIS PROGRAM IS SHAREWARE. IF YOU USE"
  17. 25 PRINT"IT AFTER YOUR TRIAL PERIOD OF ONE WEEK,"
  18. 26 PRINT"PLEASE HAVE THE COURTESY TO REGISTER "
  19. 27 PRINT"YOUR COPY BY SENDING A DONATION, ALONG"
  20. 28 PRINT"WITH ANY QUESTIONS OR COMMENTS TO:"
  21. 29 PRINT"GREG HARMAN "
  22. 30 PRINT"514 30TH WEST"
  23. 31 PRINT"BILLINGS, MT 59102"
  24. 32 PRINT"REGISTRATION IS $6."
  25. 34 PRINT"WITH REGISTRATION COMES FREE SUPPORT "
  26. 35 PRINT"VIA MAIL, AND A PRINTED COPY OF THE"
  27. 36 PRINT"INSTRUCTIONS. I WILL ALSO NOTIFY YOU"
  28. 37 PRINT"OF ANY NEW VERSIONS, AND GIVE YOU"
  29. 38 PRINT"A 50% DISCOUNT ON REGISTRATION FEES"
  30. 39 PRINT"FOR THAT VERSION."
  31. 45 PRINT"[158]>>PRESS ANY KEY<<"
  32. 47 GETA$:IFA$=""THEN47
  33. 50 PRINT"[147]     [129]SP[129]EC[153]TRU[156]M V1.0"
  34. 51 PRINT"      COPYRIGHT 1992 GREG HARMAN"
  35. 52 PRINT"         MAIN MENU"
  36. 53 PRINT"         [163][163][163][163][163][163][163][163][163]"
  37. 54 PRINT"1. SPRITE EDITOR"
  38. 55 PRINT"2. MULTI-COLOR SPRITE EDITOR"
  39. 56 PRINT"3. 40 X 25 SCREEN EDITOR"
  40. 57 PRINT"4. HI-RES SCREEN EDITOR"
  41. 58 PRINT"5. MULTI-COLOR HI-RES EDITOR"
  42. 59 PRINT"6. INSTRUCTIONS"
  43. 61 GETE:IFE=0 THEN 61
  44. 62 IF E=1 THEN 100
  45. 63 IF E=2 THEN 200
  46. 64 IF E=3 THEN 300
  47. 65 IF E=4 THEN 400
  48. 66 IF E=5 THEN 500
  49. 67 IF E=6 THEN 600
  50. 99 GOTO 60
  51. 100 POKE198,4:PRINT"[147]LOAD"CHR$(34)"SPRITE EDITOR";
  52. 102 PRINTCHR$(34)",8";
  53. 104 POKE631,13:POKE632,82:POKE633,117:POKE634,13
  54. 105 END
  55. 200 POKE198,4:PRINT"[147]LOAD"CHR$(34)"MULTI SPRITE";
  56. 202 PRINTCHR$(34)",8";
  57. 204 POKE631,13:POKE632,82:POKE633,117:POKE634,13
  58. 205 END
  59. 300 POKE198,4:PRINT"[147]LOAD"CHR$(34)"40 X 25 EDITOR";
  60. 302 PRINTCHR$(34)",8";
  61. 304 POKE631,13:POKE632,82:POKE633,117:POKE634,13
  62. 305 END
  63. 400 POKE198,4:PRINT"[147]LOAD"CHR$(34)"HI-RES EDITOR";
  64. 402 PRINTCHR$(34)",8";
  65. 404 POKE631,13:POKE632,82:POKE633,117:POKE634,13
  66. 405 END
  67. 500 POKE198,4:PRINT"[147]LOAD"CHR$(34)"MULTI HI-RES";
  68. 502 PRINTCHR$(34)",8";
  69. 504 POKE631,13:POKE632,82:POKE633,117:POKE634,13
  70. 505 END
  71. 600 INPUT"[147]SCREEN OR PRINTER (S/P)";R$:D=3:IFR$="P"THEND=4:S=7
  72. 602 OPEN1,8,2,"DOCS,S,R":OPEN4,D,S:PRINT"[147]":PRINTCHR$(14)
  73. 604 GET#1,A$:IFST=0THENPRINT#4,A$;:WAIT198,1,1:POKE198,0:GOTO604
  74. 606 PRINT#4:CLOSE1:CLOSE4:GOTO 50
  75.